unit UPesquisaTitulos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, DBCtrls;

type
  TFPesquisaTitulos = class(TForm)
    DBGItens: TDBGrid;
    BtnFechar: TBitBtn;
    DBText1: TDBText;
    DBText2: TDBText;
    Label2: TLabel;
    Label3: TLabel;
    procedure BtnFecharClick(Sender: TObject);
    procedure DBGItensDblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FPesquisaTitulos: TFPesquisaTitulos;

implementation

{$R *.dfm}
uses UPAGFORBRADESCO;

procedure TFPesquisaTitulos.BtnFecharClick(Sender: TObject);
begin
  close;
end;

procedure TFPesquisaTitulos.DBGItensDblClick(Sender: TObject);
begin
  BtnFechar.Click;
end;

procedure TFPesquisaTitulos.FormCreate(Sender: TObject);
begin
  Self.Constraints.MaxHeight := 345;
  Self.Constraints.MinHeight := 345;
  Self.Constraints.MaxWidth  := 691;
  Self.Constraints.MinWidth  := 691;


  DBText2.Caption:= FormatFloat('#,##0.00',FPagForBradesco.dsCadastro.DataSet.FieldByName('PAG_VALOR_TOTAL').AsFloat)
  
end;

end.
